home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
076-100
/
disk_087
/
elib
/
libface.asm
< prev
next >
Wrap
Assembly Source File
|
1992-05-06
|
968b
|
91 lines
include 'exec/types.i'
setup macro
movem.l d2/d3/d4-d7/a2-a6,-(sp)
jsr _geta4 ;set up a4 for small model
endm
push macro
move.l \1,-(sp)
endm
fix macro
ifc '\1',''
mexit
endc
ifle \1-8
addq.l #\1,sp
endc
ifgt \1-8
lea \1(sp),sp
endc
endm
restore macro
fix \1
movem.l (sp)+,d2/d3/d4-d7/a2-a6
rts
endm
dseg
public _libfunctab
_libfunctab:
dc.l myopen
dc.l myclose
dc.l myexpunge
dc.l $0000
dc.l getdown
dc.l double
dc.l $ffffffff
cseg
;--- library functions
public _myOpen
public _myClose
public _myExpunge
public _GetDown
public _Double
;--- interface routines
;public myopen
;public myclose
;public myexpunge
;public getdown
;public double
public _geta4
myopen:
setup
push a6
jsr _myOpen
restore 4
myclose:
setup
push a6
jsr _myClose
restore 4
myexpunge:
setup
push a6
jsr _myExpunge
restore 4
getdown:
setup
jsr _GetDown
restore
double:
setup
push d0
jsr _Double
restore 4
end